┌────────────────────────────────┐ │ ░░░ ░░▓ ░▓▓ ███ ▓▓░ ▓░░ │ │ ~ M O O N ~ │ └────────────────────────────────┘
prd-web-01.centraldc.gr
LOCATION:
/usr/share/doc/perl-Test-Simple/t/Test2/regression
☗ ROOT
↻ REFRESH
✎ EDIT FILE
EDITING: 693_ipc_ordering.t
#!/usr/bin/perl use Test2::Tools::Tiny; use strict; use warnings; skip_all("Test cannot run on perls below 5.8.8") unless "$]" > 5.008007; use Test2::Util qw/CAN_THREAD/; use Test2::IPC; use Test2::API qw/context intercept/; skip_all('System does not have threads') unless CAN_THREAD(); require threads; threads->import; my $events = intercept { threads->create( sub { ok 1, "something $_ nonlocal" for (1 .. 15); } )->join; }; is_deeply( [map { $_->{name} } @$events], [map "something $_ nonlocal", 1 .. 15], "Culled sub-thread events in correct order" ); done_testing;
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 693_ipc_ordering.t
T
626 B
2024-10-29 00:00
EDIT
📄 746-forking-subtest.t
T
1.1 KB
2024-10-29 00:00
EDIT
📄 gh_16.t
T
997 B
2024-10-29 00:00
EDIT
📄 ipc_files_abort_exit.t
T
1.9 KB
2024-10-29 00:00
EDIT